home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.003 / stk-3 / stk / 3.1 / STk / Message.stklos < prev    next >
Encoding:
Text File  |  1996-07-29  |  2.1 KB  |  66 lines
  1. ;;;;
  2. ;;;; M e s s a g e . s t k       --  Message class definition
  3. ;;;;
  4. ;;;; Copyright ⌐ 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
  5. ;;;; 
  6. ;;;; Permission to use, copy, and/or distribute this software and its
  7. ;;;; documentation for any purpose and without fee is hereby granted, provided
  8. ;;;; that both the above copyright notice and this permission notice appear in
  9. ;;;; all copies and derived works.  Fees for distribution or use of this
  10. ;;;; software or derived works may only be charged with express written
  11. ;;;; permission of the copyright holder.  
  12. ;;;; This software is provided ``as is'' without express or implied warranty.
  13. ;;;;
  14. ;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
  15. ;;;;    Creation date:  3-Mar-1994 23:10
  16. ;;;; Last file update: 26-Sep-1995 23:58
  17.  
  18.  
  19. (require "Basics")
  20.  
  21. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  22. ;;;;
  23. ;;;; <Message> class
  24. ;;;;
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26.  
  27. (define-class <Message> (<Tk-simple-widget>)
  28.   ((anchor      :accessor     anchor
  29.           :init-keyword :anchor
  30.           :allocation   :tk-virtual)
  31.    (aspect      :accessor     aspect
  32.           :init-keyword :aspect
  33.           :allocation     :tk-virtual)
  34.    (font      :accessor     font
  35.           :init-keyword :font
  36.           :allocation   :tk-virtual)
  37.    (foreground      :accessor     foreground
  38.           :init-keyword :foreground
  39.           :allocation   :tk-virtual)
  40.    (justify       :accessor     justify 
  41.           :init-keyword :justify 
  42.           :allocation    :tk-virtual)
  43.    (pad-x      :accessor     pad-x
  44.           :init-keyword :pad-x
  45.           :allocation   :tk-virtual
  46.           :tk-name      padx)
  47.    (pad-y      :accessor     pad-y
  48.           :init-keyword :pad-y
  49.           :allocation   :tk-virtual
  50.           :tk-name      pady)
  51.    (text      :accessor     text-of
  52.           :init-keyword :text
  53.           :allocation   :tk-virtual)
  54.    (text-variable :accessor     text-variable
  55.           :init-keyword :text-variable
  56.           :allocation   :tk-virtual
  57.           :tk-name      textvar)
  58.    (width      :accessor    width
  59.           :init-keyword :width
  60.           :allocation    :tk-virtual)))
  61.  
  62. (define-method tk-constructor ((self <Message>))
  63.   Tk:message)
  64.  
  65. (provide "Message")
  66.